QuickSearch
Otázka od: Jiri Cincura
9. 9. 2004 11:30
Ahoj,
nemel by nekdo QuickSearch algoritmus v Delphi? Hledal jsem na Internetu,
ale mam jen bastl v C. V nouzi to budu muset prepsat.
--
Jiri Cincura
e-mail: mailto:jiri@cincura.net; mailto:xcincura@informatics.muni.cz
ICQ: 314711544
web: http://www.cincura.net; http://photo.cincura.net
Odpovedá: Petr Brant
9. 9. 2004 12:00
Jestli by stacil QuickSort, tak je v Classes.pas:
TListSortCompare = function (Item1, Item2: Pointer): Integer;
procedure QuickSort(SortList: PPointerList; L, R: Integer;
SCompare: TListSortCompare);
var
I, J: Integer;
P, T: Pointer;
begin
repeat
I := L;
J := R;
P := SortList^[(L + R) shr 1];
repeat
while SCompare(SortList^[I], P) < 0 do
Inc(I);
while SCompare(SortList^[J], P) > 0 do
Dec(J);
if I <= J then
begin
T := SortList^[I];
SortList^[I] := SortList^[J];
SortList^[J] := T;
Inc(I);
Dec(J);
end;
until I > J;
if L < J then
QuickSort(SortList, L, J, SCompare);
L := I;
until I >= R;
end;
RNDr. Petr Brant [brant@dcomm.cz]
http://brant.wz.cz
nemel by nekdo QuickSearch algoritmus v Delphi? Hledal jsem na Internetu,
ale mam jen bastl v C. V nouzi to budu muset prepsat.
Odpovedá: Jiri Cincura
9. 9. 2004 12:28
Petr Brant wrote:
> Jestli by stacil QuickSort, tak je v Classes.pas:
Ale QuickSort je neco jineho nez QuickSearch. 
QuickSearch je na hledani v textu. Je to zalozeni na KMP a BM algoritmu.
Prezentovan byl nekdy kolem roku 1990 (myslim). Kdezto QuickSort tridi
posloupnost. Vyberem pivota a rozdelenim posloupnosti a dalsim
QuickSortnutim.
Jeste k tomu jsem ted zjistil, ze to v C je jen v "jako" algoritmus. Takze
nemam nic. 
--
Jiri Cincura
e-mail: mailto:jiri@cincura.net; mailto:xcincura@informatics.muni.cz
ICQ: 314711544
web: http://www.cincura.net; http://photo.cincura.net
Odpovedá: Karol Chupek
9. 9. 2004 13:14
Skus Google a skupiny
daj si vyhladat quicksearch a delphi a urcite tam nieco najdes..
napr
http://groups.google.sk/groups?q=quicksearch+delphi&hl=sk&lr=&ie=UTF-8&selm=
948185096%40p204.f27.n5012.z2.ftn&rnum=5
karol
> QuickSearch je na hledani v textu. Je to zalozeni na KMP a BM
> algoritmu.
> Prezentovan byl nekdy kolem roku 1990 (myslim).
> --
> Jiri Cincura
> e-mail: mailto:jiri@cincura.net; mailto:xcincura@informatics.muni.cz
> ICQ: 314711544
> web: http://www.cincura.net; http://photo.cincura.net
>
>
>
>
>